Option Explicit
Sub B_Sample010()
    Dim myRng As Range
    Dim mySty As Style
    Set myRng = Range("A1")	'Nxs
    With myRng
        Set mySty = .Style
        MsgBox mySty.Name
    End With
    Set mySty = Nothing		'
    Set myRng = Nothing
End Sub
